home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / namio / qz_nami.dir / 00305_åãâ éZèo.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  2.5 KB  |  88 lines
  1. on exitFrame
  2.   global gqzlist, gqzitemlist, gqzfmaplist, gqzgmaplist, gqzrmaplist, gqzbmaplist, gqzcmaplist, gmondaigoukei, gseikaigoukei
  3.   if gmondaigoukei = 0 then
  4.     set gmondaigoukei to 1
  5.   end if
  6.   if gmondaigoukei = 0 then
  7.     set gseikaigoukei to 1
  8.   end if
  9.   put gmondaigoukei into field "F-ALLQ"
  10.   put gseikaigoukei into field "F-ALLS"
  11.   put gmondaigoukei - gseikaigoukei into field "F-ALLF"
  12.   put integer(float(gseikaigoukei) / float(gmondaigoukei) * 100) into field "F-QR"
  13.   set itemsousuu to 0
  14.   repeat with n = 1 to 26
  15.     if getAt(gqzitemlist, n) >= 1 then
  16.       set itemsousuu to itemsousuu + 1
  17.     end if
  18.   end repeat
  19.   if getaProp(gqzlist, #dgitemm) = 1 then
  20.     set itemsousuu to itemsousuu + 1
  21.   end if
  22.   case itemsousuu of
  23.     "21":
  24.       put "100" into field "F-ITEM"
  25.     "20":
  26.       put "95" into field "F-ITEM"
  27.     "19":
  28.       put "90" into field "F-ITEM"
  29.     "18":
  30.       put "85" into field "F-ITEM"
  31.     otherwise:
  32.       if itemsousuu >= 21 then
  33.         put "100" into field "F-ITEM"
  34.       else
  35.         put "85" into field "F-ITEM"
  36.       end if
  37.   end case
  38.   set ivclr to 0
  39.   repeat with n = 1 to 67
  40.     if getAt(gqzlist, n) >= 1 then
  41.       set ivclr to ivclr + 1
  42.     end if
  43.   end repeat
  44.   put integer(float(ivclr) / 67 * 100) into field "F-IV"
  45.   set walkf to 0
  46.   repeat with n = 1 to 15
  47.     if getAt(gqzfmaplist, n) >= 1 then
  48.       set walkf to walkf + 1
  49.     end if
  50.   end repeat
  51.   put integer(float(walkf) / 15 * 100) into field "F-mF"
  52.   set walkf to integer(float(walkf) / 15 * 100)
  53.   set walkr to 0
  54.   repeat with n = 1 to 22
  55.     if getAt(gqzrmaplist, n) >= 1 then
  56.       set walkr to walkr + 1
  57.     end if
  58.   end repeat
  59.   put integer(float(walkr) / 22 * 100) into field "F-mR"
  60.   set walkr to integer(float(walkr) / 22 * 100)
  61.   set walkg to 0
  62.   repeat with n = 1 to 18
  63.     if getAt(gqzgmaplist, n) >= 1 then
  64.       set walkg to walkg + 1
  65.     end if
  66.   end repeat
  67.   put integer(float(walkg) / 18 * 100) into field "F-mG"
  68.   set walkg to integer(float(walkg) / 18 * 100)
  69.   set walkb to 0
  70.   repeat with n = 1 to 32
  71.     if getAt(gqzbmaplist, n) >= 1 then
  72.       set walkb to walkb + 1
  73.     end if
  74.   end repeat
  75.   put integer(float(walkb) / 32 * 100) into field "F-mB"
  76.   set walkb to integer(float(walkb) / 32 * 100)
  77.   set walkc to 0
  78.   repeat with n = 1 to 21
  79.     if getAt(gqzcmaplist, n) >= 1 then
  80.       set walkc to walkc + 1
  81.     end if
  82.   end repeat
  83.   put integer(float(walkc) / 21 * 100) into field "F-mC"
  84.   set walkc to integer(float(walkc) / 21 * 100)
  85.   put "100" into field "F-mL"
  86.   put integer(float(walkf + walkr + walkg + walkb + walkc + 100) / 600 * 100) into field "F-mAL"
  87. end
  88.